home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b2.d64
/
exe73
< prev
next >
Wrap
Text File
|
2007-02-28
|
334b
|
14 lines
0010 FOR NO:=1 TO 5 DO
0020 PRINT
0030 PRINT "DIVIDENDá(INTEGER)",
0040 INPUT DIVIDEND
0050 PRINT "DIVISOR (POSITIVE INTEGER)",
0060 INPUT DIVISOR
0070 PRINT DIVIDEND," MOD ",DIVISOR," = ",
0080 PRINT DIVIDEND MOD DIVISOR
0090 ENDFOR NO
0100 PRINT
0110 PRINT "THE END"
0120 PRINT "IF YOU WANT SOME MORE"
0130 PRINT "THEN TYPE: RUN"